/* rwbr003.p - Operation Costs Browse UI                                    */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.9 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 8.5      Created: 06/19/97    By: B. Pedersen    *J1TF*
 *    Revision: 8.5     Modified: 09/26/97    By: B. Pedersen    *J20C*
 *    Revision: 8.5     Modified: 01/31/99    By: Doug Norton    *M071*
 *    Revision: 9.0     Modified: 03/15/99    By: Mark Smith     *M0BF*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.9 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Operation Costs"

&SCOPED-DEFINE BR-NAME rw003
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE iro_det
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.iro_part
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 iro_det.iro_part
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-iro_part
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Item Number"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.iro_site
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 iro_det.iro_site
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-iro_site
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Site"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.iro_cost_set
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 iro_det.iro_cost_set
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-iro_cost_set
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Cost Set"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.iro_routing
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 iro_det.iro_routing
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-iro_routing
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Routing Code"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.iro_op
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 iro_det.iro_op
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-iro_op
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Op"
&SCOPED-DEFINE BR-FIELD-TYPE-5 integer
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT ">>>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 6

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.iro_mtl_tl
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 iro_det.iro_mtl_tl
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-iro_mtl_tl
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Material"
&SCOPED-DEFINE BR-FIELD-TYPE-6 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "->,>>>,>>9.99<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.iro_lbr_tl
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 iro_det.iro_lbr_tl
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-iro_lbr_tl
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Labor"
&SCOPED-DEFINE BR-FIELD-TYPE-7 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "->,>>>,>>9.99<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.iro_bdn_tl
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 iro_det.iro_bdn_tl
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-iro_bdn_tl
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Burden"
&SCOPED-DEFINE BR-FIELD-TYPE-8 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT "->,>>>,>>9.99<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-9 b-1.iro_sub_tl
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-9 iro_det.iro_sub_tl
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-9 tt-iro_sub_tl
&SCOPED-DEFINE BR-K-COL-LABEL-9 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-9 "Subcontract"
&SCOPED-DEFINE BR-FIELD-TYPE-9 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-9 FORMAT "->,>>>,>>9.99<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-9 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-10 (iro_mtl_tl + iro_lbr_tl + iro_bdn_tl + iro_sub_tl)
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-10 local-10
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-10 tt-local-10
&SCOPED-DEFINE BR-K-COL-LABEL-10 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-10 "Operation Total"
&SCOPED-DEFINE BR-FIELD-TYPE-10 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-10 FORMAT "->>>,>>9.9<<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-10 16

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-11 b-1.iro_cost_tot
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-11 iro_det.iro_cost_tot
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-11 tt-iro_cost_tot
&SCOPED-DEFINE BR-K-COL-LABEL-11 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-11 "Cum Total"
&SCOPED-DEFINE BR-FIELD-TYPE-11 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-11 FORMAT "->>>,>>>,>>9.99<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-11 19

&SCOPED-DEFINE BR-LOCAL-VAR-10 define variable local-10 as decimal format "->>>,>>9.9<<<<" no-undo.
&SCOPED-DEFINE Q-NUM-FILT-VALS 11
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 19
&SCOPED-DEFINE BR-BROWSE-WIDTH 161
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
